home *** CD-ROM | disk | FTP | other *** search
/ Nikkei Mac 20 / NIKKEI-MAC-CD-VOL-20-1998-12.ISO.7z / NIKKEI-MAC-CD-VOL-20-1998-12.ISO / オンラインソフト / 9.ウェブ作成ツール / HTML Grinder v3.35.sit / HTML Grinder v3.35 / Grinder Tools / Scroller / background_3885.xml next >
Extensible Markup Language  |  1998-09-23  |  7KB  |  44 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3885</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3279.css" />
  10.     <part>
  11.         <id>5</id>
  12.         <type>button</type>
  13.         <visible> <true /> </visible>
  14.         <reserved5> 0 </reserved5>
  15.         <reserved4> 0 </reserved4>
  16.         <reserved3> 0 </reserved3>
  17.         <reserved2> 0 </reserved2>
  18.         <reserved1> 0 </reserved1>
  19.         <enabled> <true /> </enabled>
  20.         <rect>
  21.             <left>6</left>
  22.             <top>275</top>
  23.             <right>23</right>
  24.             <bottom>292</bottom>
  25.         </rect>
  26.         <style>opaque</style>
  27.         <showName> <false /> </showName>
  28.         <highlight> <false /> </highlight>
  29.         <autoHighlight> <true /> </autoHighlight>
  30.         <sharedHighlight> <true /> </sharedHighlight>
  31.         <family>0</family>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>29540</icon>
  34.         <textAlign>center</textAlign>
  35.         <font>Chicago</font>
  36.         <textSize>12</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <name>Help</name>
  39.         <script>on mouseUpfullhelpend mouseUpon mouseenterhelper "Click here for more help for HTML Grinder."end mouseenter</script>
  40.     </part>
  41.     <name></name>
  42.     <script>on converter thefile,thecontents----SET TAG MODE STUFFput word 3 of the short name of the selectedbutton of cd family 1 into themodeif themode is "heading" thenput the selectedtext of cd btn "starting with" into startingHtagput "<H" into thetagput "</H" into theEndtagput char 3 of startingHtag into minimumLevelput char 3 of startingHtag into currentLevelelseput cd fld customtag into thetagput thetag into theEndTagput "/" after char 1 of theEndTagend if----SET LINK TO TOP STUFFput the hilite of cd btn "include link to top" into linkbackput cd fld "linktotop" into linkbacktext----SET QBULLET STUFFif the hilite of cd btn "Use scrolldown Qbullet" is true thenput line 2 of cd fld "scrolldownpath" into QBPathput relativepath(thefile,QBpath) into relQBpathput "<img border=0 width=9 height=11 align=top src=" &quote& relQBpath &quote& ">" into DownQBCodeelseput empty into downQBCodeend ifif the hilite of cd btn "Use scrollup Qbullet" is true ANDﾂｬthe enabled of cd btn "Use scrollup Qbullet" is true thenput line 2 of cd fld "scrolluppath" into QBPathput relativepath(thefile,QBpath) into relQBpathput "<img border=0 width=9 height=11 align=top src=" &quote& relQBpath &quote& ">" into UpQBCodeelseput empty into UpQBCodeend if----SET FORMAT STUFFput "<ul>" into prelistput "</ul>" into postlistput "<li>" into preitemput "" into postitem----SET MISC STUFFput 1 into charMarkerput 0 into linknumput empty into allLinks------START FINDINGrepeat foreverset cursor to busy----FIND THE START TAG--get smartfind(theTag,theContents,charMarker)if it is "not Found" then exit repeatput word 2 of it into startStartput word 4 of it into startEndput startEnd into charMarkerif themode is "heading" thenif char startEnd +1 of thecontents is a number ANDﾂｬchar startEnd + 2 of thecontents is ">" thenput char startEnd +1 of thecontents into newLevelif newLevel < minimumLevelthen next repeatadd 2 to startEndput char startStart to startEnd of thecontents into thistagput thisTag into theEndTagput "/" after char 1 of theEndTagelsenext repeatend ifelseput thetag into thistagend if----FIND THE ENDTAG--get smartfind(theEndTag,theContents,charMarker)if it is "not Found" then exit repeatput word 2 of it into EndStartput word 4 of it into endEnd----THE RETURN TO TOP LINKif linkBack is true thenput "<font size=-1><a href=" &quote& "#TOP" &quote& ">" & linkbackTextﾂｬ& upQBCode & "</a></font>"  into theLinkbackif theMode is "heading"then put "<p>" after theLinkBackelse put "<p>" before theLinkBackput return & thelinkback & return into thelinkbackput theLinkBack after char EndEnd of theContentsend if----WRAP THE A NAME TAG AROUND THE SECTIONput char startEnd +1 to EndStart -1 of thecontents into thesectionadd 1 to linkNumput "SCRL" & linknum into linkNameput "</a>" into EndATagput endATag before char endStart of thecontentsput "<a name=" &quote& linkName &quote& ">" into startAtagput startAtag after char startEnd of thecontentsput empty into theLinkBack--add (length(endAtag) + length(startATag) + length(theLinkBack)) to charMarker----BUILD THE SCROLLDOWN LINK TO THE SECTIONif themode is "heading" thenif newlevel <> currentlevel thenput newlevel - currentlevel into levelstepsif levelsteps > 0then put prelist into tagstoAddelse put postlist into tagstoAddrepeat with x =1 to (abs(levelsteps))put tagstoAdd & return after allLinksend repeatput newlevel into currentlevelend ifend ifput preitem & "<a href=" & quote& "#" & linkname &quote& ">" & thesectionﾂｬ& downQBCode & "</a>" & postitem &return after allLinksend repeat---- LEVEL OUT THE LIST LEVEL IF NECESSARYif themode is "heading" thenif currentlevel <> minimumlevel thenput minimumlevel- currentlevel into levelstepsif levelsteps > 0then put prelist into tagstoAddelse put postlist into tagstoAddrepeat with x =1 to (abs(levelsteps))put tagstoAdd & return after allLinksend repeatend ifend if----FINAL FORMATTING ON LIST OF LINKSput prelist &return before allLinksput postlist after allLinksif linkback is true thenput "<a name=" & quote& "TOP" &quote& "></a>" &return before allLinksend ifput "<!--Scrolling Links inserted by the HTML Grinder-->" &return before allLinksput return & "<!--End of Scrolling Links inserted by the HTML Grinder-->" after allLinks----APPEND THE LINKS--put the selectedtext of cd btn append into whereput cd fld texto into whattextput append(thecontents,allLinks,where,whattext) into newcontentsif newcontents <> thecontents and char 1 to 6 of newcontents is not "error:"then ReplaceFile thefile,newcontentsend converteron alldoneglobal totalchangesget "Scrolling links were added to" && totalchanges && "file"if totalchanges <> 1 then get it & "s"get it & "."put "0" into totalchangessend "alldone it" to homie()end alldone</script>
  43. </background>
  44.